﻿#!/usr/bin/perl

$DEPTH = 26;
$TAGLEN = 8;

sub randomTag {
    my $tag = "";
    for( $i = 0; $i<$TAGLEN; $i++ ) {
        # Losowy znak pomiędzy "A" i "Z"
        my $char = chr(int(rand(26)) + ord("A"));
        $tag .= $char;
    }
    return $tag;
}

# Najpierw budujemy tablicę znaczników i drukujemy wszystkie znaczniki otwierające.
my @randomXML = ();
for (my $i=0; $i < $DEPTH; $i++ ) {
    $randomXML[$i] = randomTag();
    print " " x $i . "<" . $randomXML[$i] . ">\n";
}
print "głębokość!\n";

# Teraz drukujemy wszystkie znaczniki zamykające.
for (my $i=$DEPTH-1; $i >= 0; $i-- ) {
    print " " x $i . "</" . $randomXML[$i] . ">\n";
}
# Nie robimy tego rekurencyjnie, ponieważ mogłoby to doprowadzić do przepełnienia stosu
